(define (rm x ls)
	(if (null? ls)
		'()
		(let ((h (car ls)))
			((if (eqv? x h)
				(lambda (y) y)
				(lambda (y) (cons h y)))
			(rm x (cdr ls))))))
